﻿Namespace ArphoonTest
    Public Module Commons
        Public Sub AddLogC(Optional ByVal text As String = "", Optional ByVal leaveopen As Boolean = False)
            AddLog("  " & text, leaveopen)
        End Sub

        Public Sub RewriteC(Optional ByVal text As String = "", Optional ByVal leaveopen As Boolean = False)
            Rewrite("   " & text, leaveopen)
        End Sub

        Public Sub AddLogCV(Optional ByVal text As String = "")
            AddLogV("  " & text)
        End Sub
    End Module
End Namespace
